Sub ()

    Dim ġ As Range
    
    On Error Resume Next
    
        Set ġ = Worksheets("data").Cells(Rows.Count, "B").End(xlUp)
        
        If Err.Number <> 0 Then
            
            MsgBox " ũδ data Ʈ ʿմϴ."
            Exit Sub
        
        End If
        
    On Error GoTo 0
    
    Set ġ = ġ.Offset(1)
    
    With ġ
    
        .Value = Range("C2").Value
        .Offset(, 1).Value = Range("C4").Value
        .Offset(, 2).Value = Range("C6").Value
    
    End With

End Sub
